home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Magazine 28 Bonus
/
CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin
/
data
/
arttour.dir
/
00231_Script_Tour Handlers
< prev
next >
Wrap
Text File
|
1996-06-20
|
702b
|
33 lines
on startMovie
global animatedCursorSprite,loops
set loops = 0
set animatedCursorSprite = 6
end
-- handler noCursorAnimation hides the sprite that contains the animated cursor
-- when the playback head jumps back at the beginning of the loop section
--
on doAnimation
global loops,animatedCursorSprite
trace
set loops = loops + 1
put "loops = "&loops
if loops = 1 then
setSpriteVisibility animatedCursorSprite,0
go "StartAnimation"
else if loops = 2 then setSpriteVisibility animatedCursorSprite,1
updateStage
trace off
end
on setSpriteVisibility aSprite,state
set the visible of sprite aSprite = state
updateStage
end